home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / recent / aminet2.lha / JoinMailUS < prev    next >
Text File  |  1997-10-05  |  2KB  |  82 lines
  1. /* $VER: JoinMail.yam 1.2 (05 OCT 97)
  2. ** by Charles Patterson <midian@azstarnet.com>
  3. ** http://www.azstarnet.com/~midian
  4. **
  5. ** Description: This script joins split files into one mail file.
  6. **              ftpmail@pub1.bryant.vix.com version
  7. **
  8. ** Requirements: YAM 1.3.4 (© 1995-96 Marcel Beck)
  9. **
  10. ** Instructions: Select part 001 of email then start script.
  11. */
  12.  
  13. OPTIONS RESULTS
  14.  
  15. ADDRESS YAM
  16.  
  17. 'GETMAILINFO SUBJECT'
  18. PARSE VAR RESULT part number of subject
  19. other = subject
  20. PARSE VAR other pub 'aminet/' dir '/' sdir '/' arcname other
  21. IF number ~= "001" THEN DO
  22.     'REQUEST "Select part 001 then run script." "Ok"'
  23.     EXIT
  24. END
  25.  
  26. 'GETMAILINFO FILE'
  27. filename = RESULT
  28. filename = LEFT(filename,LENGTH(FILENAME)-8)||"0001.000"
  29. ext = 48
  30. DO UNTIL ~EXISTS(filename)
  31.     ext = ext + 1
  32.     filename = LEFT(filename,LENGTH(FILENAME)-1)||D2C(ext)
  33. END
  34.  
  35. 'GETFOLDERINFO MAX'
  36. count = RESULT
  37. filecount = 0
  38.  
  39. DO x = 0 to count-1
  40.     'SETMAIL' x
  41.     'GETMAILINFO SUBJECT'
  42.     PARSE VAR RESULT part number RESULT
  43.     IF part = 'part' THEN DO
  44.         checksub = SUBSTR(RESULT,POS('pub',RESULT))
  45.         IF checksub = subject THEN DO
  46.             filenum = 0
  47.             DO nc = 1 to 3
  48.                 cnum = SUBSTR(number,nc,1)
  49.                 filenum = filenum + cnum*10**(3-nc)
  50.             END
  51.             'GETMAILINFO FILENAME'
  52.             file.filenum = RESULT
  53.             filecount = filecount+1
  54.         END
  55.     END
  56. END
  57.  
  58. IF filecount > 0 THEN DO
  59.     OPEN('output',filename,W)
  60.     DO x = 1 to filecount
  61.         OPEN('input',file.x,R)
  62.         IF x > 1 THEN DO
  63.             DO UNTIL (LEFT(READLN('input'),6)='X-UIDL')
  64.             END
  65.         END
  66.         DO WHILE ~EOF('input')
  67.             line = READLN('input')
  68.             IF line = 'begin 644 ftpmail' THEN
  69.                 line = 'begin 644 'arcname
  70.             IF LEFT(line,8) = 'Subject:' THEN
  71.                 line = 'Subject: Combined'subject
  72.             IF STRIP(line) ~= '' THEN
  73.                 WRITELN('output', line)
  74.             IF LEFT(line,6)='X-UIDL' & x = 1 THEN
  75.                 WRITELN('output','')
  76.         END
  77.         CLOSE('input')
  78.     END
  79.     CLOSE('output')
  80.     'MAILUPDATE'
  81. END
  82.